1 :POKE50257,0:POKE53264,0
2 PRINTCHR$(8):PRINTCHR$(142)
3 FORX=0TO24:POKE54272+X,0:NEXTX
10 PRINTCHR$(147):V=53248:POKEV+21,0:FORN=0TO7:POKEV+29,2^N:NEXTN
15 FORN=0TO15STEP2:POKEV+N,0:POKEV+N+1,0:NEXTN:POKEV+23,0
20 CLR:DIMAB(7,7):PRINTCHR$(147):POKE53280,3:POKE53281,3:V=53248:T=2040
25 POKEV+21,255:POKEV+29,255:FORR=0TO7:POKET+R,192+R:NEXTR
30 FORN=12288TO12350:READQ:POKEN,Q:NEXT
35 FORX=0TO100STEP4:POKEV,25:POKEV+1,X:POKEV+39,0:NEXTX:GOSUB2000
40 FORN=12352TO12414:READQ:POKEN,Q:NEXT
45 FORX=255TO117STEP-4:POKEV+2,60:POKEV+3,X:POKEV+40,0:NEXTX:GOSUB2000
50 FORN=12416TO12478:READQ:POKEN,Q:NEXTN
55 FORX=0TO100STEP4
60 POKEV+4,95:POKEV+5,X:POKEV+41,0:NEXTX:GOSUB2000
65 FORN=12480TO12542:READQ:POKEN,Q:NEXTN
70 FORX=255TO117STEP-4:POKEV+6,130:POKEV+7,X:POKEV+42,0:NEXTX:GOSUB2000
75 FORN=12544TO12606:READQ:POKEN,Q:NEXT
80 FORX=0TO100STEP4:POKEV+8,165:POKEV+9,X:POKEV+43,0:NEXTX:GOSUB2000
85 FORN=12608TO12670:READQ:POKEN,Q:NEXTN
90 FORX=255TO100STEP-10:POKEV+10,211:POKEV+11,X:POKEV+44,0:POKEV+23,32:NEXTX
95 GOSUB2000
100 FORN=12672TO12734:READQ:POKEN,Q:NEXTN
105 FORX=0TO255STEP5:POKEV+12,X:POKEV+13,107:POKEV+45,0
106 IFX<>60ANDX<>95ANDX<>130ANDX<>165ANDX<>210ANDX<>250THEN140
110 IFX=60THENPOKEV+39,9
115 IFX=95THENPOKEV+40,4
120 IFX=130THENPOKEV+41,2
125 IFX=165THENPOKEV+42,5
130 IFX=210THENPOKEV+43,7
135 IFX=250THENPOKEV+44,14
140 NEXTX:POKEV+45,8:GOSUB415:FORN=1TO2000:NEXTN
145 PRINT""
150 PRINTTAB(35)"[163]"
155 PRINTTAB(35)"[163]"
160 PRINTTAB(35)"[149][163]"
165 PRINTTAB(35)"[144][163]"
170 PRINTTAB(35)"[149][163]"
175 PRINTTAB(35)"[163]"
180 PRINTTAB(35)"[163]":FORN=1TO2000:NEXTN
185 FORN=12736TO12798:READQ:POKEN,Q:NEXTN
190 PRINT"[145][145][145][145][145][145]"
195 D$=" V O N  D.  D Z I W O S Z  ":PRINT"":DA=3:R=0
200 FORX=0TO255STEP2
205 POKEV+14,X:POKEV+15,207:POKEV+46,0
210 IFX<40THEN225
215 IFX<DATHEN225
220 R=R+1:DA=DA+9:PRINT"[145]"LEFT$(D$,R):NEXTX:FORN=1TO10:NEXTN
225 NEXTX:GOSUB2700:FORN=1TO7000:GETX$:IFX$<>""THENN=7000
226 NEXTN
230 POKEV+21,0:PRINTCHR$(147)"BITTE WARTEN"
235 FORN=832TO894:READQ:POKEN,Q:NEXTN:POKEV+39,0:POKEV+23,1
240 FORN=896TO958:READQ:POKEN,Q:NEXTN
245 FORN=960TO1022:READQ:POKEN,Q:NEXTN:POKEV+41,1
250 FORN=0TO2:POKE2040+N,13+N:NEXTN
255 B=1
260 FORA=1TO7:READAB(A,B):NEXTA:B=B+1:IFB=8THEN270
265 GOTO260
270 REM
275 POKE53280,3:POKE53281,3:PRINT"[147][156]             ****************          "
280 PRINT"             *    [193][210][212][197][205][201][211]   *          "
285 PRINT"             ****************          "
290 POKE53272,23:PRINT
295 PRINT"[211]IE MUESSEN MIT DEM [208]FEIL INS [211]CHWARZE"
300 PRINT"TREFFEN. [201]N ZEHN [214]ERSUCHEN KOENNEN [211]IE"
305 PRINT"[208]UNKTE SAMMELN.":PRINT
310 PRINT"[206]ACH [215]AHL VON [197]NTFERNUNG UND [199]ESCHWIN-"
315 PRINT"DIGKEIT DER [193]RMBRUST MIT [198]EUERKNOPF ODER";
320 PRINT"[204]EERTASTE KANN ES LOSGEHEN. ":PRINT
325 PRINT"[201]M RICHTIGEN [205]OMENT SCHIESSEN UND "
330 PRINT"[198]EUERKNOPF ODER [204]EERTASTE LANGE GENUG "
335 PRINT"FESTHALTEM ([211]CHUSSWINKEL).":PRINT:PRINT
375 PRINT"[202]OYSTICK IN [208]ORT 2 STECKEN.
380 [153]:[153]
390 [153]"          **(null)IEL CHR$LUECK**":[153]
395 [153]"       (null)EITER MIT DER >(null)EERTASTE<      ":[151]198,0:X[178]1:[141]2300
400 [161]A$:[139]A$[179][177]" "[167][141]2200:[137]400
405 [153][199](147):[151]53272,21:[129]X[178]0[164]24:[151]54272[170]X,0:[130]X
410 [151]53281,7:[151]53280,7:[137]720
415 [143]
420 S[178]54272
425 [129]L[178]0[164]24:[151]S[170]L,0:[130]
430 [151]S[170]1,KL:[151]S[170]5,9:[151]S[170]15,30:[151]S[170]24,15:[151]S[170]6,15[172]16[170]10
435 [151]S[170]4,21
440 [129]C[178]1[164]100:[130]:[151]S[170]4,20
445 [142]
450 [143]
455 [131]0,126,0,0,255,0,1,255,128,3,255,192,7,195,224,15,129,240,31,0,248,62,0
460 [131]124,124,0,62,248,0,31,255,255,255,255,255,255,255,255,255,255,255,255
465 [131]240,0,15,240,0,15,240,0,15,240,0,15,240,0,15,240,0,15,240,0,15
470 [143]
475 [131]255,255,240
480 [131]255,255,248,255,255,252,255,255,254,255,255,255,240,0,15
485 [131]240,0,7,240,0,7,240,0,7,240,0,15
490 [131]255,255,255,255,255,254,255,255,252,255,255,248,240,15,128,240,7,192
495 [131]240,3,224,240,1,240,240,0,248,240,0,124,240,0,62
500 [143]
505 [131]255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
510 [131]0,60,0,0,60,0,0,60,0,0,60,0,0,60,0,0,60,0,0,60,0,0,60,0,0,60,0,0,60,0
515 [131]0,60,0,0,60,0,0,60,0,0,60,0,0,60,0,0,60,0
520 [143]
525 [131]255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
530 [131]240,0,0,240,0,0,240,0,0
535 [131]255,255,0,255,255,0,255,255,0,255,255,0
540 [131]240,0,0,240,0,0,240,0,0
545 [131]255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
550 [143]
555 [131]252,0,63,254,0,127,255,0,255,255,129,255,255,195,255
560 [131]247,231,239,243,255,207,241,255,143,240,255,15,240,126,15,240,60,15
565 [131]240,24,15,240,0,15,240,0,15,240,0,15,240,0,15,240,0,15
570 [131]240,0,15,240,0,15,240,0,15,240,0,15
575 [143]
580 [131]0,16,0,0,56,0,0,124,0,0,254,0,1,255,0,3,255,128,7,57,192,0,56,0
585 [131]0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0
590 [131]0,56,0,0,56,0,0,56,0,0,56,0
595 [143]
600 [131]63,255,252,127,255,254,255,255,255,255,255,255,255,255,255,248,0,31
605 [131]240,0,31,248,0,0,255,255,252,255,255,254,255,255,255,127,255,255
610 [131]63,255,255,0,0,31,240,0,15,240,0,31,255,255,255,255,255,255
615 [131]255,255,255,127,255,254,63,255,252
620 [143]
625 [131]0,0,0,0,0,0,128,0,32,64,0,48,32,0,24,144,0,12,72,0,6,255,255,255
630 [131]255,255,255,72,0,6,144,0,12,32,0,24,64,0,48,128,0,32
635 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
640 [143]
645 [131]0,24,0,0,60,0,0,255,0,3,221,192,15,24,240,56,24,28,96,24,6,16,24,8
650 [131]8,24,16,4,24,32,2,24,64,1,60,128,0,189,0,0,126,0,0,60,0,0,126,0
655 [131]0,126,0,0,126,0,0,255,0,0,255,0,0,255,0
660 [143]
665 [131]0,16,0,0,56,0,0,84,0,0,16,0,0,16,0,0,16,0,0,16,0,0,16,0,0,16,0,0,16,0
670 [131]0,16,0,0,16,0,0,16,0,0,16,0,0,16,0,0,16,0,0,16,0,0,56,0,0,16,0,0,56,0,0
675 [131]16,0
680 [143]
685 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,130,0,0,68,0
690 [131]0,40,0,0,16,0,0,40,0
695 [131]0,68,0,0,130,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
700 [143]
705 [131]10,10,10,10,10,10,10,10,20,20,20,20,20,10,10,20,30,30,30,20,10
710 [131]10,20,30,50,30,20,10,10,20,30,30,30,20,10,10,20,20,20,20,20,10
715 [131]10,10,10,10,10,10,10
720 [153]"":[129]N[178]1[164]6:[153][163]1)"(null)LENLENLENLENLENLENLENLENLENRIGHT$"
725 [153][163]1)"PEEK         PEEK"
730 [153][163]1)"MID$LENLENLENLENLENLENLENLENLEN(null)":[130]N
735 [153]"":[129]N[178]1[164]4:[153][163]28)"(null)LENLENLENLENLENLENLENLENLENRIGHT$"
740 [153][163]28)"PEEK         PEEK":[153][163]28)"MID$LENLENLENLENLENLENLENLENLEN(null)":[130]N:DI[178]0:GE[178]2.4:LO[178]0
745 [153]"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO":GR[178]0
750 [153]"CLRTREFFER":[153]"WINKEL":RU[178]0:PK[178]0:TY[178]0
755 [153]"DISTANZ>DRUECKEN<"
760 DI[178]DI[170]25:[153][163]29)"ON"DI"METER":[129]N[178]1[164]250:[130]N
765 [139]([194](56320)[175]16)[178]0[167]785
770 [161]A$:[139]A$[178]" "[167]785
775 [139]DI[178]75[167]DI[178]0
780 [137]760
785 [153]"ON              "
790 [153]"GESCHWIND>DRUECKEN<M/S":[151]198,0
795 GE[178]GE[170]0.2:GE$[178][196](GE):[139][195](GE$)[178]2[167]GE$[178]GE$[170]".0"
796 [153][163]29)"ON"GE$:[129]N[178]1[164]250:[130]N
800 [139]([194](56320)[175]16)[178]0[167]820
805 [161]A$:[139]A$[178]" "[167]820
810 [139]GE[177][178]6[167]GE[178]2.4
815 [137]795
820 [129]N[178]1[164]1000:[130]N:[153]"ON              "
825 [153]"SUMME":[153]"RUNDE":[129]N[178]1[164]1000:[130]N
830 RU[178]RU[170]1:[153]"STOP"PK:[129]N[178]1[164]1500:[130]N:[151]198,0
835 [139]RU[177]10[167]1215
840 [153]""RU
845 [153]"":[129]N[178]1[164]2:[153][163]13)"SGN SGN CONTSGN STOPSGN+CONT + + +":[130]N
850 [139]DI[178]0[167]DI[178]25
855 GR[178]0:[153]""[163]29)"        ":[153]""[163]29)"       %"
860 [129]X[178]0[164]225[169]GE:[151]V[170]0,X:[151]V[170]1,210:[151]V[170]21,1
865 [161]A$:[139]A$[178]" "[167][141]885:[137]875
870 JV[178][194](56320):[139](JV[175]16)[178]0[167][141]885
875 [139]GR[177]0[167]X[178]225
880 [130]X:[137]830
885 [151]198,0:[151]V[170]40,0
890 [129]N[178]1[164]17:JV[178][194](56320):[129]M[178]1[164]5:[130]M
895 [139](JV[175]16)[178]0[167]GR[178]GR[170]1:A$[178]"":[137]905
900 [161]A$:[139]A$[178]" "[167]GR[178]GR[170]1
905 [153]""[163]31)GR:[130]N
910 [151]198,0:[139]DI[178]25[167]925
915 [139]DI[178]50[167]975
920 [139]DI[178]75[167]1025
925 [139]GR[177]7[167]LO[178]1:[137]1370
930 [139]GR[178]7[167]Z[178]48:B[178]1
935 [139]GR[178]6[167]Z[178]68:B[178]2
940 [139]GR[178]5[167]Z[178]88:B[178]3
945 [139]GR[178]4[167]Z[178]96:B[178]4
950 [139]GR[178]3[167]Z[178]107:B[178]5
955 [139]GR[178]2[167]Z[178]124:B[178]6
960 [139]GR[178]1[167]Z[178]144:B[178]7
965 [139]GR[178]0[167]LO[178]2:[137]1370
970 [137]1070
975 [139]GR[177]11[167]LO[178]1:[137]1370
980 [139]GR[178]11[167]Z[178]48:B[178]1
985 [139]GR[178]10[167]Z[178]68:B[178]2
990 [139]GR[178]9[167]Z[178]88:B[178]3
995 [139]GR[178]8[167]Z[178]96:B[178]4
1000 [139]GR[178]7[167]Z[178]107:B[178]5
1005 [139]GR[178]6[167]Z[178]124:B[178]6
1010 [139]GR[178]5[167]Z[178]144:B[178]7
1015 [139]GR[179]5[167]LO[178]2:[137]1370
1020 [137]1070
1025 [139]GR[177]15[167]LO[178]1:[137]1370
1030 [139]GR[178]15[167]Z[178]48:B[178]1
1035 [139]GR[178]14[167]Z[178]68:B[178]2
1040 [139]GR[178]13[167]Z[178]88:B[178]3
1045 [139]GR[178]12[167]Z[178]96:B[178]4
1050 [139]GR[178]11[167]Z[178]104:B[178]5
1055 [139]GR[178]10[167]Z[178]124:B[178]6
1060 [139]GR[178]9[167]Z[178]144:B[178]7
1065 [139]GR[179]9[167]LO[178]2:[137]1370
1070 [139]X[179]103[176]X[177]215[167][137]1370
1075 [139]X[177][178]103[175]X[179]119[167]A[178]1
1080 [139]X[177][178]119[175]X[179]135[167]A[178]2
1085 [139]X[177][178]135[175]X[179][178]155[167]A[178]3
1090 [139]X[177]155[175]X[179]167[167]A[178]4
1095 [139]X[177][178]167[175]X[179]183[167]A[178]5
1100 [139]X[177][178]183[175]X[179]199[167]A[178]6
1105 [139]X[177][178]199[175]X[179][178]216[167]A[178]7
1110 [141]2500
1113 [129]Y[178]216[164]74[169][171]2:[151]V[170]2,X:[151]V[170]3,Y:[151]V[170]21,3:[130]Y:[141]2700
1115 PU[178]AB(A,B):PK[178]PK[170]PU:[139]PU[178]50[167]TY[178]TY[170]1
1120 [129]N[178]1[164]1000:[130]:[151]V[170]4,X:[151]V[170]5,Z:[151]V[170]21,0:[153]""[163]31)PU
1125 [153]""[163]13)"(null)LENLENLENLENLENLENLENLENLENLENLENLENRIGHT$"
1130 [153][163]13)"PEEK            PEEK"
1135 [153][163]13)"PEEKCLOSE(null)LENLENLENLENLENLENLENLENRIGHT$CLOSEPEEK"
1140 [153][163]13)"PEEKCLOSEPEEKCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSEPEEKCLOSEPEEK"
1145 [153][163]13)"PEEKCLOSEPEEKCLOSE(null)LENLENLENLENRIGHT$CLOSEPEEKCLOSEPEEK"
1150 [153][163]13)"PEEKCLOSEPEEKCLOSEPEEKCLOSECLOSECLOSECLOSEPEEKCLOSEPEEKCLOSEPEEK"
1155 [153][163]13)"PEEKCLOSEPEEKCLOSEPEEKCLOSE(null)RIGHT$ PEEKCLOSEPEEKCLOSEPEEK"
1160 [153][163]13)"PEEKCLOSEPEEKCLOSEPEEKCLOSEMID$(null)CLOSEPEEKCLOSEPEEKCLOSEPEEK"
1165 [153][163]13)"PEEKCLOSEPEEKCLOSEPEEK    PEEKCLOSEPEEKCLOSEPEEK"
1170 [153][163]13)"PEEKCLOSEPEEKCLOSEMID$LENLENLENLEN(null)CLOSEPEEKCLOSEPEEK"
1175 [153][163]13)"PEEKCLOSEPEEKCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSEPEEKCLOSEPEEK"
1180 [153][163]13)"PEEKCLOSEMID$LENLENLENLENLENLENLENLEN(null)CLOSEPEEK"
1185 [153][163]13)"PEEKCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSEPEEK
1190 PRINTTAB(13)"[202][195][195][195][195][195][195][195][195][195][195][195][195][203]
1195 [151]V[170]21,4
1200 [129]N[178]1[164]2500:[130]N:[151]V[170]21,0:[153]""[163]13)"              "
1205 [129]N[178]1[164]16:[153][163]13)"               ":[130]N
1210 [142]
1215 [151]53269,0:[153]"LOAD"
1225 [139]PK[179]400[175]PK[177][178]200[167]1280
1230 [139]PK[177][178]400[167]1310
1235 [153]"SYSDAS WAR SEHR SCHLECHT !!
1240 PRINT"SIE HABEN NUR"PK"PUNKTE ERREICHT
1245 [139]TY[178]0[167][153]"UND NICHT EINMAL
1250 IFTY=0THENPRINT"INS SCHWARZE GETROFFEN.
1255 [139]TY[177]0[167][153]"SIE HABEN NUR"TY"MAL INS"
1260 [139]TY[177]0[167][153]"SCHWARZE GETROFFEN.
1265 PRINT"SIE MUESSEN NOCH VIEL UEBEN !!
1275 [137]1355
1280 [153]"SYSDAS WAR NICHT SCHLECHT !
1285 PRINT"SIE HABEN"PK"PUNKTE ERREICHT
1290 [139]TY[177]0[167][153]"UND"TY"MAL INS SCHWARZE GETROFFEN."
1295 [153]"VERSUCHEN SIE IHR ERGEBNIS"
1300 [153]"ZU VERBESSERN.
1305 GOTO1355
1310 PRINT"[158]DAS WAR SEHR GUT !!!
1315 [153]"SIE HABEN"PK"PUNKTE ERREICHT"
1320 [153]"UND DABEI"TY"MAL INS
1325 PRINT"SCHWARZE GETROFFEN.
1330 [139]PK[179]500[167][153]"VERSUCHEN SIE AN 500
1335 IFPK<500THENPRINT"PUNKTE HERANZUKOMMEN.
1340 [139]PK[178]500[167][153]"SIE HABEN DIE MAXIMALE
1345 IFPK=500THENPRINT"PUNKTZAHL ERREICHT !!
1350 [139]PK[178]500[167][153]" **HERZLICHEN GLUECKWUNSCH!**
1355 PRINT"BITTE EINE TASTE DRUECKEN !"
1356 FORN=120TO999:D=PEEK(1024+N)
1357 IFD<>32THENPOKE55296+N,6:POKE1024+N,D
1359 NEXTN
1360 GETA$:IFA$=""THEN1360
1365 POKE198,0:GOTO275
1370 GOSUB2500
1372 FORY=215TO0STEP-2:POKEV+2,X:POKEV+3,Y:POKEV+21,3:NEXTY:PRINT"":GR=1
1375 IFX<103ORX>215THENRETURN
1380 IFLO=1THENPRINTTAB(30)"ZU HOCH"
1385 IFLO=2THENPRINTTAB(30)"ZU TIEF"
1390 FORN=1TO1000:RETURN
2000 REM
2020 POKE54272+24,15+16:POKE54272+23,1+15*16
2030 POKE54272+6,0:POKE54272+4,0:POKE54272+5,0
2040 POKE54272+5,1*16+10:POKE54272+4,33:H1=54272+1:H2=54272+22:POKEH1,20
2050 FORX=100TO0STEP-4:POKEH2,X:POKEH1,100-X:NEXTX
2060 RETURN
2200 REM
2210 POKE54272+1,X:X=X+1:IFX>200THENX=0
2220 RETURN
2300 POKE54272+24,15+128:FORX=0TO23:POKE54272+X,0:NEXTX
2310 POKE54272+6,255:POKE54272+4,19:POKE54272+1,10
2315 POKE54272+14+6,255:POKE54272+14+4,17:POKE54272+15,10
2320 RETURN
2500 REM
2510 POKE54272+24,15+32:POKE54272+6,0:POKE54272+5,0:POKE54272+4,0
2520 POKE54272+5,1*16+11:POKE54272+4,129
2530 POKE54272+1,50:POKE54272+23,1:H2=54272+22
2540 FORH1=100TO1STEP-1:POKEH2,H1:NEXT:POKE54272+6,0:POKE54272+5,0
2550 POKE54272+4,0:RETURN
2700 REM
2710 POKE54272+24,0:POKE54272+6,0:POKE54272+5,0:POKE54272+4,0
2715 POKE54272+23,1
2720 POKE54272+14+6,255
2730 POKE54272+14+4,17:POKE54272+14+1,3:POKE54272+5,1*16+11:POKE54272+4,21
2740 POKE54272+1,2:POKE54272+24,15+128+16
2750 Q=54272+22:FORW=1TO15
2760 FORE=150TO0STEP-9:POKEQ,E:NEXTE,W
2770 FORE=0TO23:POKE54272+E,0:NEXTE
2780 RETURN